home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Course / Literacy Course / background_2798.txt < prev    next >
Text File  |  1989-08-22  |  644b  |  27 lines
  1. -- background: 2798 from stack: in
  2. -- bmap block id: 4440
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on resumeCourse
  8.   global whereWeCameFrom
  9.  
  10.   kinfo "hide"
  11.   if whereWeCameFrom is empty then exit resumeCourse
  12.   if "menu" is not in last item of whereWeCameFrom
  13.   then set lockMessages to true
  14.  
  15.   set cursor to watch
  16.   lock screen
  17.   go last item of whereWeCameFrom
  18.   if the result is "cancel" then
  19.     answer "Couldn't find last used card."
  20.   else
  21.     send openCard to this cd -- update button highlights
  22.     unlock screen with   visual dissolve
  23.     delete last item of whereWeCameFrom
  24.   end if
  25.  
  26. end resumeCourse
  27.